home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / snpd0492.zip / DOW.H < prev    next >
Text File  |  1992-04-13  |  242b  |  9 lines
  1. /*
  2. ** DOW.H - day-of-week macro.  From the FidoNet CECHO - by
  3. ** Paul Schlyter.
  4. */
  5.  
  6. #define dow(y,m,d)  \
  7.         ( ( ( 3*(y) - (7*((y)+((m)+9)/12))/4 + (23*(m))/9 + (d) + 2    \
  8.         + 15 - (((y)-((m)<3))/100+1) * 3 / 4 ) % 7 ) )
  9.